#!/usr/bin/perl
use warnings;
use strict;
use CGI qw(:standard);

my $numero1 = param('n1');
my $numero2 = param('n2');

print header( -type => 'application/xhtml+xml' );

print "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n";
print "<operacion>\n";
if ($numero1 && $numero2){
    my $resultado = $numero1 + $numero2;
    print "\t<suma>$resultado</suma>\n";
    $resultado = $numero1 - $numero2;
    print "\t<resta>$resultado</resta>\n";
    $resultado = $numero1 * $numero2;
    print "\t<multiplicacion>$resultado</multiplicacion>\n";
}else{
    print "<error></error>\n";
}
print  "</operacion>\n";
